Option Explicit
Dim doc
Set doc = application.ActiveDocument
GetUserLicence(doc)
doc.currentunit = 2
main
sub main()
	putSelPadObstruct
	'msgbox "done"
end sub

'#################################################################
'#################################################################
'#################################################################
'#################################################################

function putSelPadObstruct()
	doc.currentunit = 2	
	dim cLyr:cLyr = application.gui.ActiveRouteLayer
	dim obs,ob
	set obs = doc.Obstructs(1,0,cLyr)
	
	dim x1,y1,x2,y2
	dim pntArr	
	dim numPoints 
	redim pntArr(2,4)
	numPoints = 5 	 	
	dim bo,po
	set bo = doc.BoardOutline 
	x1 = bo.Extrema.MinX-10.0
	y1 = bo.Extrema.MinY-10.0
	X2 = bo.Extrema.MaxX+10.0
	Y2 = bo.Extrema.MaxY+10.0
	dim dx:dx = round(x2-x1)
	dim dy:dy = round(y2-y1)
	
	'msgbox obs.count
	dim dx0,dy0
	for each ob in obs	
		ob.highlighted = true
		dx0 = round(ob.Extrema.MaxX - ob.Extrema.MinX)
		dy0 = round(ob.Extrema.MaxY - ob.Extrema.MinY)
		'msgbox dx & " , " & dx0 & chr(13) & chr(10) & dy & " , " & dy0
		if dx0 = dx and dy0 = dy then ob.delete		
	next
	
end function


'#################################################################
'#################################################################
'#################################################################
'#################################################################
' Function to validate document
Private Function ValidateServer(docObj)
    Dim key, licenseServer, licenseToken
    key = docObj.Validate(0)
    Set licenseServer = CreateObject("MGCPCBAutomationLicensing.Application")
    licenseToken = licenseServer.GetToken(key)
    Set licenseServer = nothing
    'On Error Resume Next
    Err.Clear
    docObj.Validate(licenseToken)
    If Err Then
        ValidateServer = 0    
    Else 
        ValidateServer = 1
    End If
End Function

sub GetUserLicence(docObj)

	If ValidateServer(docObj) = 0 Then
	    msgbox "Server validation failed."
	    exit sub
	End If
	
end sub